home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / humans.dir / 00077_Script_77 < prev    next >
Text File  |  1994-11-28  |  2KB  |  71 lines
  1. on Startmovie
  2.   global qtCastName,qtSprite ----,increment, L
  3.   
  4.   initSearchPath
  5.   
  6.   set qtCastName = "Rubyshoe"
  7.   set qtSprite = 23
  8. end startup
  9.  
  10. on checkKey
  11.   if the key = RETURN then
  12.     if field "passwordbox" contains "plasma" then
  13.       go to frame "start"
  14.     else
  15.       go to frame "nopass"
  16.     end if
  17.     when keydown then nothing
  18.   end if
  19. end checkkey
  20.  
  21. on firstFrame
  22.   global qtSprite
  23.   set the movieRate of sprite qtSprite = 0
  24.   set the movieTime of sprite qtSprite = 0
  25. end firstFrame
  26.  
  27. on lastFrame
  28.   global qtSprite,qtcastname
  29.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  30. end lastFrame
  31.  
  32. on stepFwdQT
  33.   global qtSprite,qtcastname
  34.   set the movieRate of sprite qtSprite = 0
  35.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  36.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  37.   end if
  38. end stepFwdQT
  39.  
  40. on stepRevQT
  41.   global qtSprite
  42.   set the movieRate of sprite qtSprite = 0
  43.   if the movieTime of sprite qtSprite = 0 then exit
  44.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  45. end stepRevQT
  46.  
  47. on frameCounter
  48.   global qtSprite
  49.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  50. end frameCounter
  51.  
  52. --on rewindQT
  53. global qtSprite
  54. set the movieRate of sprite qtSprite = -3
  55. --set the movieTime of sprite qtSprite = 0
  56. end rewindQT
  57.  
  58. on pauseQT
  59. global qtSprite
  60. set the movieRate of sprite qtsprite = 0
  61. end pauseQT
  62.  
  63. on playQT
  64. global qtSprite,qtcastName
  65. set the movieRate of sprite qtSprite = 1
  66. end playQT
  67.  
  68. on playQT2
  69. global qtSprite,qtcastName
  70. set the movieRate of sprite qtSprite = 1
  71. end playQT2